10 OPEN1,4
20 PRINT#1,CHR$(27);CHR$(120);"0";:REM NLQ AUS
30 PRINT#1,CHR$(27);":";CHR$(0);CHR$(0);CHR$(0);:REM ROM-ZEICHENSATZ INS RAM
40 PRINT#1,CHR$(27);"&";CHR$(0);"!!";:REM NEUE ZEICHEN VON A BIS A
50 FOR I =1 TO 12
60 :  READ X
70 :  PRINT#1,CHR$(X);
80 NEXT I
90 PRINT#1,CHR$(27);"%1";:REM RAM-ZEICHENSATZ EINSCHALTEN
100 PRINT#1,"STATT EINES AUSRUFE-ZEICHENS"
110 PRINT#1,"ERHAELT MAN EIN NOTENSYMBOL:!!! !!!"
120 PRINT#1,CHR$(27);CHR$(112);"1";:REM PROPORTIONAL EIN
130 PRINT#1,"!!! ! ! !"
140 PRINT#1,"MMM M M M"
150 PRINT#1,"III I I I"
160 PRINT#1,CHR$(27);CHR$(112);"1";:REM PROPORTIONAL AUS
170 CLOSE 1
200 DATA 136:REM ATTRIBUT: KEINE UNTERLAENGE, START 0, ENDE 9
210 DATA 2,5,2,5,250,0,64,48,0,0,0